﻿

Public Class Guardias
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            'aca va algo q se carga una vez sola
            FG.culturaPaginas()

        End If
    End Sub

    Protected Sub btnLectParaPacinte_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnLectParaPaciente.Click
        mdl_popup_Lector.Show()
    End Sub

    Protected Sub imgBuscar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgBuscar.Click
        Dim dniPacienteGuardia As String

        SacaCartelDeAViso(lblMEsejAlBuscar)

        If txtDNI.Text = "" Or txtDNI.Text = "Búsqueda DNI" Then
            MuestraCartel("Ingrese DNI y reintente busqueda", lblMEsejAlBuscar)
            Exit Sub
        Else
            dniPacienteGuardia = txtDNI.Text
        End If

        busquedaDNI(dniPacienteGuardia)

    End Sub


    Private Sub busquedaDNI(ByVal _dni As String)

        Dim persGuardia As New Persona

        persGuardia.SetaDatosXDn(_dni)

        If persGuardia.Dev_ExistePersona Then

            Var_Globales.Setea_dniPaciente(_dni)
            Var_Globales.SeteaTipoVisita(TipoVisita.Guardia)
            Var_Globales.Setea_paginas("~/Guardias.aspx")
            Response.Redirect("~/Historia_Clinico.aspx")

        Else
            MuestraCartel("No existe persona. Por favor reintente busqueda", lblMEsejAlBuscar)
        End If

    End Sub

    Protected Sub Btn_OK_Verdadero_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Btn_OK_Verdadero.Click
        Dim dniAux As String

        'dniAux = Lector.Dev_cod_de_hulla
        dniAux = Lector.IdentificaPersonas_DevuelveDNI
        If dniAux = "" Then
            MuestraCartel("No se pudo identficar a la persona", lblMEsejAlBuscar)
        Else
            busquedaDNI(dniAux)
            mdl_popup_Lector.Hide()
        End If
    End Sub

End Class